﻿Public Class InputData

    Public Property _dato
        Get
            Return Me.txtBuscar.Text
        End Get
        Set(ByVal value)
            Me.txtBuscar.Text = value
        End Set
    End Property

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Me.Close()
    End Sub

    Private Sub InputData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtBuscar.SelectionStart = Me.txtBuscar.Text.Length()
        Me.txtBuscar.SelectionLength = 0
    End Sub
End Class